home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
pgvw174.zip
/
R-PCCHAT.MRG
next >
Wrap
Text File
|
1992-06-22
|
12KB
|
327 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce NEW\R-PCCHAT.BAS
* RBBS-PC.BAS: Date 6-20-1992 Size 147219 bytes
* ------------[ Created 06-22-1992 11:28:38 ]------------
* REPLACING old line(s) by new
420 IF MID$(ZMsgRec$,57,1) = "A" THEN _
ZLogonErrorIndex = 6 : _
ZWasLG$(6) = ZWasLG$(6) + _
LEFT$(ZMsgRec$,25) : _
ZOutTxt$ = "The name '" + ZActiveUserName$ + _
"' is in use on another node" : _
CALL RingCaller : _
GOTO 10620
ZFirstName$ = LEFT$(ZMsgRec$,INSTR(ZMsgRec$, " ") - 1)
IF NOT ZPrivateDoor THEN _
CALL SkipLine (1) : _
CALL QuickTPut1 (ZFirstName$ + ", welcome back!") : _
* ------[ first line different ]------
CLOSE 7 : OPEN "O",7,"RBBS" + ZNodeID$ + "PG" : CLOSE 7 : _ ' DR062201
CALL Talk (11,ZOutTxt$)
IF ZExitToDoors THEN _
GOTO 457
'
' ***** TEST FOR REMOTE SYSOP LOGGING ON ***
'
* REPLACING old line(s) by new
* ------[ first line different ]------
800 CALL ViewStat ("A") ' DR062201
IF ZAdjustedSecurity THEN _
GOSUB 5135
IF ZOrigCnfg$ = ZCurDef$ THEN _
ZMainUserFileIndex = ZUserFileIndex : _
ZOrigSec = ZUserSecLevel : _
ZUserSecSave = ZUserSecLevel : _
ZOrigUserName$ = ZActiveUserName$
ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _
(NOT ZPrivateDoor) AND (NOT ZExitToDoors))
GOSUB 9500
IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _
CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
" Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
PrevLastOn$ = ZLastDateTimeOn$
IF ZLocalUser THEN _
ZTalkToModemAt$ = "9600" : _
ZBaudParity$ = "9600 BPS,N,8,1" : _
ZModemInitBaud$ = "9600" : _
ZSnoop = ZTrue : _
ZLineFeeds = ZTrue
CALL SetCrLf
CALL SetPrompt
CALL XferType (2,ZTrue)
IF NOT ZSubBoard THEN _
BoardCheckDate$ = PrevLastOn$
CALL SetSysOp
IF ZWasA THEN _
ZActiveUserName$ = "SYSOP" : _
ZFirstName$ = "SysOp"
IF ZExitToDoors OR ZSubBoard THEN _
GOTO 815
GOSUB 465
IF (ZEightBit AND _
ZAutoDownDesired) OR _
ZAskID THEN _
CALL TestUser
CALL QuickTPut1 ("Logging " + ZActiveUserName$)
CALL Talk (1,ZOutTxt$)
Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B"))
CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
", operating at" + Temp$)
CALL SkipLine (1)
Attempts = 0
ZWasZ$ = ZActiveUserName$ + _
" on at " + _
ZCurDate$ + _
", " + _
ZTime$ + _
" from " + _
ZWasCI$ + _
"," + Temp$
ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
'
' * ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
'
WasX$ = "{" + _
HashValue$ + _
"/" + _
ZIndivValue$ + _
"}"
IF LEN(ZWasZ$) < 65 THEN _
WasX = 65 _
ELSE WasX = LEN(ZWasZ$) + 2
MID$(ZWasNG$,WasX) = WasX$
CALL Printit (" " + ZWasZ$)
IF ZNewUser THEN _
CALL UpdtCalr ("NEWUSER",1) : _
CALL Muzak (2)
'
' ***** NOTIFY CALLER IF ABLE TO "AUTODOWN" ****
'
IF ZEightBit AND ZAutoDownYes THEN _
ZOutTxt$ = CHR$(9) + _
ZReturnLineFeed$ + _
"You may use AUTODOWNLOADing!" : _
CALL RingCaller : _
CALL DelayTime(4)
* REPLACING old line(s) by new
* ------[ first line different ]------
1205 CALL ViewStat ("A") : CALL ViewChek ' DR062201
IF ZSubParm < 0 THEN _
GOTO 202
ZSubParm = 1
ZStopInterrupts = ZFalse
ZWasQ = 0
IF (NOT ConfMailJoin) AND (ZHomeConf$ = "" OR ZHomeConf$ = "MAIN") THEN _
GOTO 1209
TurboLogon = LinkNext OR (NOT ConfMailJoin)
ConfMailJoin = ZFalse
ZFF = 8
IF ZHomeConf$ = "MAIN" THEN _
ZHomeConf$ = "M"
ZUserIn$(ZAnsIndex) = ZHomeConf$
IF LinkNext THEN _
ZUserIn$(ZAnsIndex + 1) = "R" : _
ZLastIndex = ZAnsIndex + 1
ZLastIndex = -ZLastIndex*(ZLastIndex > ZAnsIndex)-ZAnsIndex*(ZLastIndex <= ZAnsIndex)
ZAnsIndex = ZAnsIndex - 1
ZHomeConf$ = ""
ZWasQ = ZLastIndex
ZStoreParseAt = 1
ZLastCommand$ = "MJ"
GOTO 1240
* REPLACING old line(s) by new
* ------[ first line different ]------
2100 CALL ViewStat ("B") ' DR062201
ZOutTxt$ = "Type " + _
ZMsgHeader$ + _
STR$(ZMaxMsgLines) + _
" lines max" + _
ZPressEnter$
GOSUB 12975
GOSUB 3200
* REPLACING old line(s) by new
* ------[ first line different ]------
2315 CALL ViewStat ("B") ' DR062201
ZOutTxt$ = "Edit Sub-function <A," + _
LEFT$("B,",-2 * (ZSysop OR ZLocalUser)) + _
"C,D,E,I,L,M,R,S,?>"
GOSUB 12930
IF ZWasQ = 0 THEN _
GOTO 2315
CALL AraAllCaps (ZUserIn$(),ZAnsIndex)
ZWasZ$ = ZUserIn$(ZAnsIndex)
* REPLACING old line(s) by new
* ------[ first line different ]------
4330 CALL ViewStat ("C") ' DR062201
IF LinkNext THEN _
LinkNext = ZFalse : _
GOSUB 1893 : _
GOSUB 5344 : _
NumMsgsSelected = 1 : _
ZAnsIndex = 1 : _
MsgIndex = 1 : _
ZLastIndex = 1 : _
CanKill = (ZSysop OR ZUserSecLevel >= ZSecKillAny) : _
IF LinkForward THEN _
CurMsg = ZLastMsgRead + 1 : _
GOTO 4450 _
ELSE CurMsg = HighMsgNumber : _
GOTO 4490
QuickScanMsgs = ZFalse
ReadMsgs = ZTrue
Forward = ZFalse
ZGlobalRead = ZFalse
HiLiteRec = -1
ScanMsgs = ZFalse
MsgStart = 6
MsgEnd = 100
IF ZLocalUserMode OR NOT ZLocalUser THEN _
IF ReadMsgIn$ <> ZActiveMessageFile$ THEN _
ReadMsgIn$ = ZActiveMessageFile$ : _
CALL UpdtCalr ("Read Messages in " + ReadMsgIn$,1)
GOSUB 1300
GOTO 4350
'
' **** S - COMMAND FROM MAIN MENU (SCAN MESSAGE HEADERS) ***
'
* REPLACING old line(s) by new
* ------[ first line different ]------
4352 CALL ViewStat ("C") ' DR062201
SearchString$ = ""
DontPrint = ZFalse
JustReplied = ZFalse
QuotedReply = ZFalse
CanKill = (ZSysop OR ZUserSecLevel >= ZSecKillAny)
GOSUB 1893
GOSUB 5344
ZWasZ$ = ""
FOR WasI = 2 TO ZWasQ
IF INSTR("Ss*",ZUserIn$(WasI)) > 0 THEN _
ZUserIn$(WasI) = MID$(STR$(ZLastMsgRead+1),2) + "+"
IF INSTR("Ll",ZUserIn$(WasI)) > 0 THEN _
ZUserIn$(WasI) = MID$(STR$(HighMsgNumber),2) + "-"
IF INSTR("Gg",ZUserIn$(WasI)) > 0 THEN _
ZGlobalRead = ZTrue
NEXT
* REPLACING old line(s) by new
* ------[ first line different ]------
4380 CALL ViewStat ("C") ' DR062201
WasA1$ = "Msg #" + _
STR$(LowMsgNumber) + _
"-" + _
MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
" (H)lp,S)ince,L)ast" + _
LEFT$(",G)lobal",8*(ZLinkedConf$ ="" OR ZGlobalRead)+8)
IF ZGlobalRead THEN _
CALL QuickTPut1 ("Reading globally")
IF AddressedToUser OR ToRequested OR FromRequested THEN _
ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
LEFT$("/",-AddressedToUser) + _
LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
CALL QuickTPut1 ("Include only msgs "+ZWasY$+" you. Read what msgs (? for help)") _
ELSE WasA1$ = WasA1$ + ",T)o,F)rom,M)" : _
IF ReadMsgs AND ZMarkedMsgs$ <> "" THEN _
WasA1$ = WasA1$ + "arked" _
ELSE WasA1$ = WasA1$ + "ine"
IF SearchString$ = "" THEN _
WasA1$ = WasA1$ + _
", text" _
ELSE CALL QuickTPut1 ("Include only msgs with text " + SearchString$ + ". Read what msgs (? for help)")
* REPLACING old line(s) by new
* ------[ first line different ]------
4770 CALL ViewStat ("E") ' DR062201
CALL SysopChat
IF ZSubParm < 0 THEN _
GOTO 202
RETURN
'
' **** S - COMMAND FROM UTILITY MENU (STATISTICS) ***
'
* REPLACING old line(s) by new
9700 ReturnOn$ = ",*,S,N,"
WasA1$ = ZBulletinMenu$
* ------[ first line different ]------
CALL ViewStat ("D") ' DR062201
* REPLACING old line(s) by new
10932 IF ZLocalUser AND NOT ZDebug THEN _
CALL QuickTPut1 ("Only for remote SysOps") : _
* ------[ first line different ]------
RETURN
CALL ViewStat ("I") ' DR062201
CALL DosExit
ZSubParm = -9
CALL FindFKey
GOTO 202
'
' * D - COMMAND FROM MAIN MENU (EXIT TO DOORS)
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20150 CALL ViewStat ("J") ' DR062201
ZFileSysParm = 1
GOTO 20200
'
' * GO TO THE FILE SYSTEM TO LIST THE FILE DIRECTORIES
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20155 CALL ViewStat ("J") ' DR062201
ZFileSysParm = 2
GOTO 20200
'
' * GO TO THE FILE SYSTEM TO DOWNLOAD FILES
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20160 CALL ViewStat ("G") ' DR062201
ZFileSysParm = 3
GOTO 20200
'
' * GO TO THE FILE SYSTEM WHEN RETURNING FROM EXTERNAL PROTOCOLS
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20165 CALL ViewStat ("J") ' DR062201
ZFileSysParm = 4
GOTO 20200
'
' * GO TO THE FILE SYSTEM TO UPLOAD FILES
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20170 CALL ViewStat ("H") ' DR062201
ZFileSysParm = 5
GOTO 20200
'
' * GO TO THE FILE SYSTEM TO SCAN FILE SYSTEM DIRECTORIES
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20175 CALL ViewStat ("J") ' DR062201
ZFileSysParm = 6
GOTO 20200
'
' * GO TO THE FILE SYSTEM TO HANDLE "PERSONAL" FILES
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20180 CALL ViewStat ("J") ' DR062201
ZFileSysParm = 7
GOTO 20200
'
' * GO TO THE FILE SYSTEM TO LIST "NEW" FILES
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20185 CALL ViewStat ("J") ' DR062201
ZFileSysParm = 8
GOTO 20200
'
' * RETURN TO THE FILE SYSTEM AFTER HANDLING EXTENDED FILE DESCRIPTIONS
'
* REPLACING old line(s) by new
* ------[ first line different ]------
20190 CALL ViewStat ("J") ' DR062201
ZFileSysParm = 9